www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\administrators\D_admin_user.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <% AJAXshowLoader() %> <style type="text/css"> <!-- .STYLE4 { color: #FFFFFF; font-weight: bold; } --> </style> <% biao="[ND_admin]" biao2="[ND_userGroup]" sys_content_type=trim(request("sys_content_type")) if qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <br /> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px"> <script language="javascript"> function delact(id){ if (confirm("确认删除?")==1){ self.location="D_del_user.asp?id="+id; } } </script> <br /> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td width="12%" height="27" align="center" class="adminth"><span class="STYLE4">id</span></td> <td width="22%" height="27" align="center" class="adminth"><span class="STYLE4">管理员级别</span></td> <td width="42%" align="center" class="adminth"><span class="STYLE4">用户名</span></td> <td width="24%" align="center" class="adminth"><span class="STYLE4">操作</span></td> </tr> <% CurrentPage=replacebadchar(request("page")) if CurrentPage="" then CurrentPage=1 else if not IsNumeric(CurrentPage) then CurrentPage=1 else if int(CurrentPage)<=0 then CurrentPage=1 else CurrentPage=replaceBadchar(request("page")) end if end if end if maxperpage=15 aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/") fileNamexx = aryxx(ubound(aryxx)) strFileName=fileNamexx&"?classid="&request("classid")&"&keyword="&trim(request("keyword")) set Rs=server.CreateObject("adodb.recordset") sql="select * from "&biao&" order by id desc" Rs.open sql,conn,1,1 if not Rs.eof then Rs.pagesize=MaxPerpage totalnumber=Rs.recordcount if totalnumber mod maxperpage=0 then MaxPage= totalnumber \ MaxPerpage else MaxPage= totalnumber \ MaxPerpage+1 end if if int(CurrentPage)>int(MaxPage) then CurrentPage=MaxPage else CurrentPage=CurrentPage end if Rs.absolutepage=CurrentPage for ni=1 to MaxPerpage if Rs.eof then exit for %> <tr bgcolor="#EDF8FE"> <td width="12%" height="27" align="center"><%=rs("id")%></td> <td width="22%" height="27" align="center"> <%=rs("typea")%> </td> <td width="42%" align="center"><%=rs("aname")%></td> <td width="24%" align="center"> <% if rs("typea")="高级管理员" then%> <font color="#FF0000">拥有所有权限</font> <%else%> <a href="D_edit_user.asp?id=<%=rs("id")%>"><font color="#0000ff">编辑权限</font></a> <%end if %> <a href=# onclick="delact('<%=rs("id")%>');">删除</a></td> </tr> <% Rs.movenext next else %> <tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr> <%end if Rs.close set Rs=nothing %> <tr> <td colspan="7" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td> </tr> </table> </form> </div> <script language=javascript> AJAXfade(1,'l_list'); //AJAXfade(1,'l_lists'); </script> <% AJAXcloseLoader() %>